{FontDirectory xpplnfnam known{/xpfnam xpplnfnam def}
 {xpplnfnam xpstripname{pop dup cvn /findfont load stopped
 {pop}{xpplnfnam exch xpnewfont /xpfnam xpplnfnam def}ifelse
 }if pop}ifelse}if}ifelse}ifelse}if xpfnam findfont

 {xpdidch{currentfont xpfnam exch [1 0 0 -1 0 0] makefont xpnewfont}
 {xpfnam xpstripname{pop cvn dup /findfont load stopped not dup
 {xpfnam 3 -1 roll xpnewfont}{exch pop}ifelse}{F}ifelse exch pop not xppln and

/xpdefont{
 /xptrapamt xdf /xpfnam xdf dup /xppln xdf{/xpplnfnam xdf}if
 dup /xpbit xdf{/xpbitfnam xdf}if /xpdidch xdf/xpuseangl xdf
 FontDirectory xpfnam known not
 {xpbit{FontDirectory xpbitfnam known}{F}ifelse{/xpfnam xpbitfnam def}

/xpstripname{xps75 cvs(|______)anchorsearch}bdf
/xpnewfont{dup maxlength dict begin xpcf/Encoding xpmacvec def currentdict end definefont pop}bdf